Interactive Quarterly/The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso/pc/demos/az/cyberx.dxr/00192_ESCRITURA DE LOS VALORES DEL JUEGO.ls

Text File | 1996-10-06 | 10.2 KB | 347 lines

on EcrValores
  global PathStart, codigo, cal_1, cal_2, cal_3, vida, escudo, Niv, Sala, Punto, muerte, calibre, TabBatallas, Tabcajas, cinta, pase, video, idioma, full_video, niv_sonido1, niv_sonido2
  set total to EMPTY
  set total to total & Niv
  set total to total & Sala
  if Punto > 999 then
    set Num to EMPTY & Punto
  else
    if Punto > 99 then
      set Num to "0" & Punto
    else
      if Punto > 9 then
        set Num to "00" & Punto
      else
        set Num to "000" & Punto
      end if
    end if
  end if
  set total to total & Num
  if cal_1 < 0 then
    set cal_1 to 0
  end if
  if cal_1 > 9 then
    set Num to EMPTY & cal_1
  else
    set Num to "0" & cal_1
  end if
  set total to total & Num
  if cal_2 < 0 then
    set cal_2 to 0
  end if
  if cal_2 > 9 then
    set Num to EMPTY & cal_2
  else
    set Num to "0" & cal_2
  end if
  set total to total & Num
  if cal_3 < 0 then
    set cal_3 to 0
  end if
  if cal_3 > 9 then
    set Num to EMPTY & cal_3
  else
    set Num to "0" & cal_3
  end if
  set total to total & Num
  if vida < 0 then
    set vida to 0
  end if
  if vida > 9 then
    set Num to EMPTY & vida
  else
    set Num to "0" & vida
  end if
  set total to total & Num
  if escudo < 0 then
    set escudo to 0
  end if
  if escudo > 9 then
    set Num to EMPTY & escudo
  else
    set Num to "0" & escudo
  end if
  set total to total & Num
  set total to total & cinta
  set total to total & pase
  if video > 9 then
    set Num to EMPTY & video
  else
    set Num to "0" & video
  end if
  set total to total & Num
  set total to total & idioma
  set total to total & full_video
  if niv_sonido1 > 99 then
    set Num to EMPTY & niv_sonido1
  else
    if niv_sonido1 > 9 then
      set Num to "0" & niv_sonido1
    else
      set Num to "00" & niv_sonido1
    end if
  end if
  set total to total & Num
  if niv_sonido2 > 99 then
    set Num to EMPTY & niv_sonido2
  else
    if niv_sonido2 > 9 then
      set Num to "0" & niv_sonido2
    else
      set Num to "00" & niv_sonido2
    end if
  end if
  set total to total & Num
  set largo to count(TabBatallas)
  if largo < 6 then
    alert("ERROR COMBATES")
  end if
  repeat with i = 1 to largo
    set total to total & getAt(TabBatallas, i)
  end repeat
  set largo to count(Tabcajas)
  if largo < 50 then
    alert("ERROR CAJAS")
  end if
  repeat with i = 1 to largo
    if getAt(Tabcajas, i) > 9 then
      set Num to getAt(Tabcajas, i)
    else
      set Num to "0" & getAt(Tabcajas, i)
    end if
    set total to total & Num
  end repeat
  set total to total & muerte
  set total to total & calibre
  set largo to length(total)
  set suma to 0
  repeat with i = 1 to largo
    set suma to suma + integer(char i of total)
  end repeat
  if suma > 999 then
    set Num to EMPTY & suma
  else
    if suma > 99 then
      set Num to "0" & suma
    else
      if suma > 9 then
        set Num to "00" & suma
      else
        set Num to "000" & suma
      end if
    end if
  end if
  set total to total & Num
  set TotalRec to EMPTY
  set Trozo to char 1 to 5 of total
  set result to integer(Trozo) / 8
  set Resto to integer(Trozo) mod 8
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 6 to 11 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 12 to 15 of total
  set result to integer(Trozo) / 3
  set Resto to integer(Trozo) mod 3
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 16 to 23 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 24 to 31 of total
  set result to integer(Trozo) / 9
  set Resto to integer(Trozo) mod 9
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 32 to 36 of total
  set result to integer(Trozo) / 9
  set Resto to integer(Trozo) mod 9
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 37 to 43 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 44 to 48 of total
  set result to integer(Trozo) / 8
  set Resto to integer(Trozo) mod 8
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 49 to 54 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 55 to 58 of total
  set result to integer(Trozo) / 3
  set Resto to integer(Trozo) mod 3
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 59 to 66 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 67 to 74 of total
  set result to integer(Trozo) / 9
  set Resto to integer(Trozo) mod 9
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 75 to 79 of total
  set result to integer(Trozo) / 9
  set Resto to integer(Trozo) mod 9
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 80 to 86 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 87 to 92 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 93 to 100 of total
  set result to integer(Trozo) / 5
  set Resto to integer(Trozo) mod 5
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 101 to 106 of total
  set result to integer(Trozo) / 8
  set Resto to integer(Trozo) mod 8
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 107 to 111 of total
  set result to integer(Trozo) / 9
  set Resto to integer(Trozo) mod 9
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 112 to 120 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 121 to 126 of total
  set result to integer(Trozo) / 8
  set Resto to integer(Trozo) mod 8
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 127 to 132 of total
  set result to integer(Trozo) / 7
  set Resto to integer(Trozo) mod 7
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  set Trozo to char 133 to 140 of total
  set result to integer(Trozo) / 6
  set Resto to integer(Trozo) mod 6
  set Zeros to 1
  repeat while char Zeros to Zeros of Trozo = "0"
    set Zeros to Zeros + 1
  end repeat
  set Zeros to Zeros - 1
  set TotalRec to TotalRec & Resto & length(result & EMPTY) & result & Zeros
  openXLib(PathStart & "fileio.dll")
  set Fichero to FileIO(mnew, "write", PathStart & codigo & ".ini")
  if objectp(Fichero) then
    Fichero(mWriteString, TotalRec)
    Fichero(mdispose)
  end if
  set Fichero to FileIO(mnew, "write", PathStart & "CyberNet.ini")
  if objectp(Fichero) then
    Fichero(mWriteString, TotalRec)
    Fichero(mdispose)
  end if
  closeXLib(PathStart & "fileio.dll")
end